www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/admin/chklogin.asp

    <!--#include file="mdb.asp"-->
<!--#include file="md5.asp"-->
<%
mofei=trim(request.form("mofei"))
if mofei="" then
Response.Write("<script language=javascript>alert('请输入验证码');this.location.href='index.asp';</script>")
response.end
end if
if cstr(session("getcode"))<>cstr(mofei) then
Response.Write("<script language=javascript>alert('你输入的验证码有误');this.location.href='index.asp';</script>")
response.end
end if
if Request.form("username")="" then
Response.Write("<script language=javascript>alert('请输入用户名');this.location.href='index.asp';</script>")
Response.End
end if
if Request.form("password")="" then
Response.Write("<script language=javascript>alert('请输入密码');this.location.href='index.asp';</script>")
Response.End
end if
dim powered,version
sql="select * from title"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
Powered=rs("Powered")
Version=rs("Version")
rs.close
set rs=nothing
if Version<>2008.0318 or Powered<>"<br><font color=#cecece size=2>Powered By</font> <a href=http://www.yulinweb.com target=_blank><font color=#cecece size=2>YuLinWeb.Com</font></a> <font color=#cecece size=2>v2008.0318</font>" then
Response.Write("<script language=javascript>alert('你使用的不是晓宇上网导航(生成html)v2008.0318 版本数据库，请升级后再来');this.location.href='index.asp';</script>")
response.end
end if
dim username,password
username=trim(replace(Request("username"),"'",""))
password=trim(replace(Request("password"),"'",""))
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"' and password='"&password&"'"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.close
set rs=nothing
Response.Write("<script language=javascript>alert('请输入正确的用户名和密码');this.location.href='index.asp';</script>")
Response.End
else
rs("Logincount")=rs("Logincount")+1
rs("LoginTime")=now()
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs.Update
Session("Admin")=rs("username")
Session("adminlogin")=sessionvar
Session("level")=rs("level")
Session.timeout=900
rs.close
set rs=nothing
Response.Redirect ("admin.asp")
end if
conn.close
set conn=nothing
%>